{NeoBook Function}
'###############################
' Author: Andrei Solodyankin (as3856) 
' mail : as3856@rambler.ru
' www/neobooker.ru
'###############################

Language=VBScript
Comment=The function allows you to enable or disable all network adapters.
Param=[%0]|Text|Enable or Disable
Param=[NameAdapter]|Text|Array of adapter names
{End}
Dim i
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=Delegate," _
        & "authenticationLevel=pktPrivacy}\root\cimv2")
Set colSettings = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter where PhysicalAdapter = true")
For Each objOperatingSystem in colSettings
i=i+1
   objOperatingSystem.[%0]
   publication.nbSetVar "[%1]",i
   publication.nbSetVar "[[NameAdapter][%1]]",objOperatingSystem.Name
Next
